home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ENTERPRS / C128 / TERMS / BTPV1.LZH / ascii rs-323 (.txt) < prev    next >
Commodore BASIC  |  1992-07-16  |  302b  |  18 lines
  1. 10 REM
  2. 20 REM
  3. 100 OPEN2,2,3,CHR$(6+32)+CHR$(32+128)
  4. 110 GET#2,A$
  5. 200 REM
  6. 210 GET B$
  7. 220 IF B$<>"" THEN PRINT#2,B$;
  8. 230 GET#2,C$
  9. 240 PRINT B$;C$;
  10. 250 SR=ST:IF SR=0 OR SR=8 THEN 200
  11. 310 PRINT "ERROR: ";
  12. 320 IF SR AND 1 THEN PRINT "PARITY"
  13. 330 IF SR AND 2 THEN PRINT "PARITY"
  14. 340 IF SR AND 4 THEN PRINT "PARITY"
  15. 350 IF SR AND 128 THEN PRINT "PARITY"
  16. 360 IF (PEEK(673) AND 1)THEN 360
  17. 370 CLOSE 2
  18.